home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / nddsmon.gf < prev    next >
Encoding:
Text File  |  1994-02-17  |  212 b   |  13 lines
  1. function nddsmon(curdtg)
  2. moncode=substr(curdtg,4,1)
  3. if(substr(curdtg,3,2)='10')
  4.   moncode='a'
  5. endif
  6. if(substr(curdtg,3,2)='11')
  7.   moncode='b'
  8. endif
  9. if(substr(curdtg,3,2)='12')
  10.   moncode='c'
  11. endif
  12. return(moncode)
  13.